Fix some defcustoms

diff --git a/which-key.el b/which-key.el
index 4605e73cc1cae1aee240d1add2490bd9f26fa82d..0efae1cd8ccee785bb6f2838f6367343da7ff078 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -25,7 +25,7 @@
 (require 's)
 
 (defgroup which-key nil "Customization options for which-key-mode")
-(defcustom which-key-idle-delay 1
+(defcustom which-key-idle-delay 1.0
   "Delay (in seconds) for which-key buffer to popup."
   :group 'which-key
   :type 'float)
@@ -80,7 +80,7 @@ emacs-lisp-mode."
   "These keys will automatically be truncated to one character
 and have `which-key-special-key-face' applied to them."
   :group 'which-key
-  :type '(list string))
+  :type '(repeat string))
 (defcustom which-key-buffer-name "*which-key*"
   "Name of which-key buffer."
   :group 'which-key
@@ -90,23 +90,23 @@ and have `which-key-special-key-face' applied to them."
 Possible choices are left (the default), top and nil. Nil turns
 the feature off."
   :group 'which-key
-  :type '(radio (symbol :tag "Left of keys" left)
-                (symbol :tag "In first line" top)
+  :type '(radio (const :tag "Left of keys" left)
+                (const :tag "In first line" top)
                 (const  :tag "Hide" nil)))
 (defcustom which-key-popup-type 'minibuffer
   "Supported types are minibuffer, side-window and frame."
   :group 'which-key
-  :type '(radio (symbol :tag "Show in minibuffer" minibuffer)
-                (symbol :tag "Show in side window" side-window)
-                (symbol :tag "Show in popup frame" frame)))
+  :type '(radio (const :tag "Show in minibuffer" minibuffer)
+                (const :tag "Show in side window" side-window)
+                (const :tag "Show in popup frame" frame)))
 (defcustom which-key-side-window-location 'right
   "Location of which-key popup when `which-key-popup-type' is
 side-window.  Should be one of top, bottom, left or right."
   :group 'which-key
-  :type '(radio (symbol right)
-                (symbol bottom)
-                (symbol left)
-                (symbol top)))
+  :type '(radio (const right)
+                (const bottom)
+                (const left)
+                (const top)))
 (defcustom which-key-side-window-max-width 0.333
   "Maximum width of which-key popup when type is side-window and
 location is left or right.